Những câu hỏi liên quan
Tiến Lê
Xem chi tiết
Lê Thị Bảo Khánh
Xem chi tiết
Vũ Hạ Linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:10

Câu 1: 

a) var a:array[1..50]of real;

b) a[5]:=8;

c) for i:=1 to 50 do  

begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to 50 do 

 write(a[i]:4);

 

Bình luận (0)
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:10

Câu 2: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do 

  s:=s+i;

writeln(s);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:11

Câu 3: 

b) a[2]=37

a[9]=25

Bình luận (0)
Tiểu cường
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 3 2022 lúc 9:18

#include <bits/stdc++.h>

using namespace std;

long long d[60],i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>d[i];

for (i=1; i<=n; i++) cout<<d[i]<<" ";

return 0;

}

Bình luận (0)
29_LÃ XUÂN SƠN
Xem chi tiết
Tống hiền chi
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 4 2022 lúc 22:30

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i,dem1,dem2;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

dem1=0;

dem2=0;

for (i=1; i<=n; i++)

{

if (a[i]%2==0) dem1++;

else dem2++;

}

cout<<dem1<<" "<<dem2;

return 0;

}

Bình luận (0)
hạnh trần
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 11:49

uses crt;

var b:array[1..25]of integer;

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('B[',i,']='); readln(b[i]);

end;

readln;

end.

Bình luận (0)
Xuân Linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 2 2022 lúc 22:18

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x>0) t+=x;

}

cout<<t;

return 0;

}

Bình luận (0)
Utfg aghjn
Xem chi tiết